<%

Function feeds_novo_xml(caminho, id, titulo, link, autor, tags, descricao, conteudo)

		DIM data

		data = get_data_formatada_br()
 
		ArquivoXML = caminho&"feeds/feeds/"&id&".xml" 'adicionando um nome no arquivo  
		Set FSO = CreateObject("Scripting.FileSystemObject") 'criando o objeto FSO  
		Set Linhas = FSO.CreateTextFile(Server.MapPath(ArquivoXML), True) 'salvando o arquivo no servidor através do método "CreateTextFile"  
		'gerando linas  
	 		feeds_cabecario Linhas
			
			Linhas.WriteLine("		<item>" )
			Linhas.WriteLine("			<title>"&titulo&"</title>" )
			Linhas.WriteLine("			<link>"&link&"</link>" )
			Linhas.WriteLine("			<pubDate>"&data&"</pubDate>" )
			Linhas.WriteLine("			<dc:creator>"&autor&"</dc:creator>" )
			Linhas.WriteLine("			<tags>"&tags&"</tags>" )						
			Linhas.WriteLine("			<description><![CDATA["&descricao&"]]></description>" )
			Linhas.WriteLine("			<content:encoded><![CDATA["&conteudo&"]]></content:encoded>" )
			Linhas.WriteLine("		</item>" )
			
			feeds_rodape Linhas
		
			
		'destruíndo os objetos  
		Linhas.Close  
		Set Linhas = Nothing  

End Function

Function feeds_novo(caminho, titulo, autor, tags,conteudo, xml_c, twitter_c)

	DIM link, id, twitter, descricao, data

	If titulo<>"" AND autor<>"" AND conteudo<>"" then
	
		descricao = feeds_descricao(descricao)
		
		data = get_data()
		
		str = "INSERT into feeds "
		str = str & "(titulo, data_add, data_upd, xml) "
		str = str & "VALUES ('" & titulo & "', "	
		str = str & "'" & data & "', "		
		str = str & "'" & data & "', "		
		str = str & "'" & xml_c & "')"													
		Set rsI = conexao_geral.Execute(str)
		
		str = "Select id FROM feeds order by id desc LIMIT 1"
		Set rsFe = conexao_geral.Execute(str)		
		
		id =rsFe("id")
	
		link = feeds_link(id)
		
		tags = feeds_tags(tags)
		
		feeds_novo_xml caminho, id, titulo, link, autor, tags, descricao, conteudo
		If xml_c=1 then feeds_atualizar caminho, configuracoes_get("feed_total")
		
		If twitter_c = 1 then  feeds_twitter caminho, titulo, tags, link
		
	
	End If

End Function

Function feeds_editar(caminho, id, titulo, autor, tags, conteudo, xml_c, twitter_c, status_)

	DIM link, descricao, data

	If titulo<>"" AND autor<>"" AND conteudo<>"" then
	
		descricao = feeds_descricao(descricao)
		
		link = feeds_link(id)	
			
		tags = feeds_tags(tags)
		
		data = get_data()	

		str = "UPDATE feeds SET "
		str = str & "titulo='"&titulo&"', "
		str = str & "data_upd='"&data&"', "	
		str = str & "xml='"&xml_c&"', "	
		str = str & "status='"&status_&"' "						
		str = str & " WHERE id="&id
		Set rsI = conexao_geral.Execute(str)		

		
		feeds_novo_xml caminho, id, titulo, link, autor, tags, descricao, conteudo
		feeds_atualizar caminho, configuracoes_get("feed_total")
		
		If twitter_c = 1 then  feeds_twitter caminho, titulo, tags, link
	
	End If

End Function

Function feeds_twitter(caminho, titulo, tags, link)

		DIM cam
		
		cam = caminho&"../painel/mensagens.asp"

		tags=" "&tags	
		
		twitter = titulo&" "&Replace(tags, " ", " #")&" ("&link&")"
		twitter = Replace(twitter, "#", "%23")
		
		Response.Redirect(caminho&"redes_sociais/twitter/twitterupdate.php?retorno="&cam&"&mensagem="&twitter&"&s_access_token="&configuracoes_get("twitter_access_token")&"&s_access_token_secret="&configuracoes_get("twitter_access_token_secret"))
		
End Function
		
Function feeds_deletar(caminho, id)

	str = "Select id FROM feeds where id="&id
	Set rsFe = conexao_geral.Execute(str)
	
	If not rsFe.eof then
	
		endereco = server.MapPath(caminho&"feeds/feeds/"&id&".xml")
	
		Arquivo_Deletar endereco
		
		feeds_atualizar caminho, configuracoes_get("feed_total")	
		
		str = "DELETE from feeds where id="&id
		Set rsD = conexao_geral.Execute(str)			
	
	End If

End Function

Function feeds_ler(caminho, id, ByRef titulo, ByRef tags, ByRef autor, ByRef xml, ByRef conteudo, ByRef status_)


		dim i
		
		str = "Select titulo, xml, status FROM feeds where id="&id
		Set rsFe = conexao_geral.Execute(str)
		
		If not rsFe.eof then	
			
			set docXML = server.createObject("Microsoft.XMLDOM")
			docXML.async = false
			docXML.load(server.MapPath(caminho&"feeds/feeds/"&id&".xml"))
			set registro = docXML.getElementsByTagName("item")
			
			for i=0 to registro.length - 1
			
				titulo = rsFe("titulo")
				tags = registro.item(i).selectSingleNode("./tags").text
				tags = left(tags,len(tags)-len(" barbolao"))
				autor = registro.item(i).selectSingleNode("./dc:creator").text
				conteudo = registro.item(i).selectSingleNode("./content:encoded").text
				xml = rsFe("xml")
				status_ = rsFe("status")
				
			next
			
		End If
			
End Function

Function feeds_link(id)

	feeds_link = configuracoes_get("feed_link")&id

End Function

Function feeds_descricao(descricao)

		descricao = RemoveHTMLTags(conteudo)
		If len(descricao)> 500 then descricao = left(descricao,495) & "[...]"
		
		feeds_descricao = descricao

End Function

Function feeds_tags(tags)

		tags = tags&" barbolao"			
		tags = Replace(tags, "  ", " ")
		
		feeds_tags = tags

End Function
%>